home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CUJ9104.ARJ / 9N04121B < prev    next >
Text File  |  1991-02-18  |  580b  |  23 lines

  1. mmult(aray1,aray2,aray3,row1,col1,row2,col2)
  2.  
  3. float *aray1,*aray2, *aray3;
  4. int row1,col1,row2,col2;
  5. {
  6.      register float *ap1, *ap2, *ap3, tot;
  7.      register int c2, k, c1, km;
  8.      int c21, i, j;
  9.      
  10.      c2=col2; c1=col1; ap1=aray1; ap3=aray3;
  11.      i=row1; km= (c1<row2) ? c1 : row2;
  12.      c21=c2*km-1;
  13.      do {
  14.          ap2=aray2-c2; ap1+=c1; j=c2;
  15.          do { ap1-=c1; tot=0; k=km;
  16.              do tot+= ((*ap1++) * (*(ap2+=c2)));
  17.                  while(--k);
  18.              *ap3++ = tot; ap2-=c21;
  19.              } while(--j);
  20.         } while(--i);
  21. }
  22.  
  23.